home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 41 / CD Expert nº 41.iso / Eg2 / data / Scp / s006.scp < prev    next >
Encoding:
Text File  |  2000-07-20  |  5.9 KB  |  226 lines
  1. // ****************************************************************************************
  2. // *                                                                                      *
  3. // *                                Egypte 2 : Script                                     *
  4. // *                                                                                      *
  5. // * SΘquence 006 : Maison de vie est                                                     *
  6. // *                                                                                      *
  7. // ****************************************************************************************
  8. // * v0.0 : 29/11/1999 - GrΘgory JOSEPH *
  9. // * v1.0 : 07/01/2000 - GrΘgory JOSEPH *
  10. // **************************************
  11. [S006]
  12.  
  13.  
  14. // **************************************
  15. // * WamEdit                            *
  16. // **************************************
  17. // Outils1 pas clickable
  18. // Encre pas clickable
  19.  
  20.  
  21. :init
  22. begin
  23.     set tempsAvantToctoc = 0
  24.  
  25. end
  26.  
  27.  
  28. :loop
  29. begin
  30.     //******* Gestion de la mussique *************//
  31.     if TIME4 >= 200 then
  32.         if musiqueEnCours = 0 then
  33.             // rien
  34.         else
  35.             music musiqueEnCours 
  36.             set oldMusiqueEnCours = musiqueEnCours
  37.             set TIME4 = 0
  38.         endif
  39.         
  40.     elif not oldMusiqueEnCours = musiqueEnCours then
  41.         if musiqueEnCours = 0 then
  42.             // rien
  43.         else
  44.             music musiqueEnCours 
  45.             set oldMusiqueEnCours = musiqueEnCours
  46.             set TIME4 = 0
  47.         endif
  48.  
  49. //    else
  50. //        if musiqueEnCours = 0 then
  51. //            // rien
  52. //        else
  53. //            music musiqueEnCours 
  54. //            set oldMusiqueEnCours = musiqueEnCours
  55. //            set TIME4 = 0
  56. //        endif
  57.     endif
  58.  
  59.     if Warp_Current = 6 then
  60.         if tempsAvantToctoc = 1 then
  61.             if Warp_To = 5 or Warp_To = 7 or Warp_To = 8 or Warp_To = 9 Then
  62.                 hideSpw "Oiseaux_S006" NoWamCheck
  63.                 set tempsAvantToctoc = 0
  64.             endif
  65.         
  66.         elif Warp_From = 5 Then
  67.             set tempsAvantToctoc = 1
  68.             if random % 2 = 0 then
  69.                 sound "52"
  70.                 showSpw "Oiseaux_S006" 5 once
  71.                 showSpw "Oiseaux_S006" 5 next FIRST
  72.             endif 
  73.         endif
  74.     endif
  75.         
  76.     // **************************************
  77.     // * Dialogue avec Menna                *
  78.     // **************************************
  79.     if Mouse_Click = "ScribeEcole_S006" then
  80.         if not bAnimLaunched = 1 then
  81.             showspw "ScribeEcole_S006" 3 once wait
  82. //            set bAnimLaunched = 1
  83.         endif
  84.         if partie = 2 and hand = "" then
  85.             if D014 and not GotOutils1 then
  86.                 Dialog "HR016S01" "ScribeEcole_S006" 2 1
  87.             elif D017 and not GotEncre then
  88.                 Dialog "HR018S01" "ScribeEcole_S006" 2 1
  89.             elif not D020 then
  90.                 Dialog "SE015S01" "ScribeEcole_S006" 2 1
  91.             else
  92.                 Dialog "SE909S01" "ScribeEcole_S006" 2 1
  93.             endif
  94.             
  95.         else
  96.             if random % 2 = 0 then
  97.                 Dialog "SE839S01" "ScribeEcole_S006" 2 1
  98.             else
  99.                 Dialog "SE840S01" "ScribeEcole_S006" 2 1
  100.             endif
  101.         endif
  102.  
  103.         showspw "ScribeEcole_S006" 3 once reverse 
  104.         sound "14"
  105.         showspw "ScribeEcole_S006" 4 next
  106.  
  107.  
  108.     // **************************************
  109.     // * Dialogue avec le Grand Pretre      *
  110.     // **************************************
  111.     elif Mouse_Click = "GrandPretre_S006" then
  112.         if partie = 2 then
  113.             if hand = "" then
  114.                 Dialog "PR043S01" "GrandPretre_S006" 2 1
  115.  
  116.             elif hand = "EpiEmpoisonne" then
  117.                 if "EpiEmpoisonne" in invent and "BagueRapport" in invent then
  118.                     wait 1
  119.                     
  120.                     set invent = invent - "EpiEmpoisonne"
  121.                     
  122.                     set hand = "BagueRapport"
  123.                     wait 1
  124.                     
  125.                     set invent = invent - "BagueRapport"
  126.                     
  127.                     if "PapyrusLegende" in invent then
  128.                         set hand = "PapyrusLegende"
  129.                         wait 1
  130.                     
  131.                         set invent = invent - "PapyrusLegende"
  132.                     endif
  133.                     
  134.                     Dialog "PR044S02" "GrandPretre_S006" 2 1
  135.                     set partie = 3
  136.                     set SP = 12
  137. //                    Minute 28
  138.                     set oldMusiqueEnCours = musiqueEnCours
  139.                     set musiqueEnCours = 5
  140.                     
  141. //                    FMV "ClozSilo" PauseMusic
  142.  
  143.                     ShowSpw "PetitGarcon_S006" 3 once
  144. //                    automove "PetitGarcon_S006"
  145.                     ShowSpw "PetitGarcon_S006" 4 next            
  146.                 else 
  147.                     Dialog "PR144S01" "GrandPretre_S006" 2 1
  148.                 endif
  149.  
  150.             elif hand = "PapyrusLegende" then
  151.                 Dialog "PR144S01" "GrandPretre_S006" 2 1
  152.         
  153.             elif hand = "BagueRapport" then
  154.                 Dialog "PR144S01" "GrandPretre_S006" 2 1
  155.             else
  156.                 if random % 2 = 0 then
  157.                     Dialog "PR842A01" "GrandPretre_S006" 2 1
  158.                 else
  159.                     Dialog "PR843A01" "GrandPretre_S006" 2 1
  160.                 endif
  161.             endif
  162.             
  163.         elif partie = 3 and hand = "" then
  164.             Dialog "PR122S01" "GrandPretre_S006" 2 1
  165.         else
  166.             if random % 2 = 0 then
  167.                 Dialog "PR842A01" "GrandPretre_S006" 2 1
  168.             else
  169.                 Dialog "PR843A01" "GrandPretre_S006" 2 1
  170.             endif
  171.  
  172.         endif
  173.  
  174.  
  175.  
  176.     // **************************************
  177.     // * Dialogue avec le petit Ipouky      *
  178.     // **************************************
  179.     elif Warp_Current = 6 and partie = 3 and not D045 then
  180.         Dialog "PG045S01" "PetitGarcon_S006" 1 2
  181.         ShowSpw "PetitGarcon_S006" 3 next once wait
  182.         HideSpw "PetitGarcon_S006"
  183.  
  184.     // **************************************
  185.     // * Ramassage outils 1                 *
  186.     // **************************************
  187.     elif Mouse_Click = "Outils_1" then 
  188.         if not D014 then
  189.             Dialog "HR188V01" off
  190.         elif Hand = "" then
  191.             HideSpw "Outils_1"
  192.             set Invent = Invent + "Outils_1"
  193.             set GotOutils1 = 1
  194.         endif
  195.  
  196.  
  197.  
  198.     // **************************************
  199.     // * Ramassage encre                    *
  200.     // **************************************
  201.     elif Mouse_Click = "Encre" then
  202.         if not D017 then
  203.             Dialog "HR188V01" off
  204.         elif Hand = "" then
  205.             HideSpw "Encre"
  206.             set Invent = Invent + "Encre"
  207.             set GotEncre = 1
  208.             set SP = 5
  209.             HideSpw "ScribeBibliotheque_S007"
  210.         endif
  211.  
  212.  
  213.  
  214.     // **************************************
  215.     // * Sortie                             *
  216.     // **************************************
  217.     elif Mouse_Click = "zS007" then
  218.         AutoMove "zS007"
  219.         Jump "MaisnVie" "S007" 4 Fade
  220.     endif
  221.     
  222.     if Warp_to > 0 and bAnimLaunched = 1 then
  223.         set bAnimLaunched = 0
  224.         showspw "ScribeEcole_S006" 4
  225.     endif
  226. end